home *** CD-ROM | disk | FTP | other *** search
/ Softline PAY-CD / Softline PAY-CD(1994).iso / programm / allclear / demo / disk1 / examples / computer.cmp / QUIKSORT.ACL < prev    next >
Encoding:
Text File  |  1993-10-06  |  508 b   |  32 lines
  1. QUICKSORT
  2.  
  3. {*HIDE . ;}
  4. Procedure - | QUICK (m, n : address).
  5. VAR - i, j : address; | pivot, temp : position.
  6. m < n ?
  7.     (true)
  8.     pivot := tag (m + ((n - m) div 2)) |
  9.     i := m ; j := n.
  10.     i < j ;
  11.         tag (i) < pivot ;
  12.             i := succ (i).
  13.         ;end
  14.         pivot < tag (j) ;
  15.             j := pred (j).
  16.         ;end
  17.         i <= j ?
  18.             temp := tag (i) | tag (i) := tag (j) | tag (j) := temp.
  19.         ?end
  20.     ;end
  21.     j - m < n - i ?
  22.         (true)
  23.         quick (m,j).
  24.         quick (i,n).
  25.         (false)
  26.         quick (i,n).
  27.         quick (m,j).
  28.     ?end
  29. ?end
  30. stop.
  31.  
  32.